www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_Right.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户中心</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../Conn.asp" -->
<!--#include file="../Function/Function.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"> </td>
<td width="94%">用户中心</td>
</tr>
</table></td>
</tr>
</table><br />
<%IF ChecKWcafesIP(UsersIP())=True Then%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
<tr>
<td><br />
<table width="70%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" height="32">网吧名称：</td>
<td colspan="2"><%=Request.Cookies("YWNTUserCookie")("WcafesName")%></td>
</tr>
<tr>
<td height="32">会员类型：</td>
<td colspan="2"><%=UsersGroup(Request.Cookies("YWNTUserCookie")("WcafesGroup"))%></td>
</tr>
<tr>
<td height="32">到期时间：</td>
<td colspan="2"><%=Request.Cookies("YWNTUserCookie")("WcafesUseDate")%></td>
</tr>
<tr>
<td height="32">网吧I P：</td>
<td colspan="2"><%=UsersIP()%></td>
</tr>
<tr>
<td height="32">注册时间：</td>
<td colspan="2"><%=Request.Cookies("YWNTUserCookie")("WcafesRegDate")%></td>
</tr>
</table>
<br /></td>
</tr>
</table></td>
</tr>
</table>
<%Else
IF Request.Cookies("YWNTUserCookie")("UserName")="" Then
Call UsersLogin()
Else
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select UsersName,UsersType,UsersGroup,UsersCoin,UsersCoinDate,UsersRegDate,UsersTrueName,UsersEmail,UsersQQ from YWNT_TMS_Users Where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'"
Rs.open sql,Conn,1,1
YWNT_TMS_UsersName=RS("UsersName")
YWNT_TMS_UsersType=RS("UsersType")
YWNT_TMS_UsersGroup=RS("UsersGroup")
YWNT_TMS_UsersCoin=RS("UsersCoin")
YWNT_TMS_UsersCoinDate=RS("UsersCoinDate")
YWNT_TMS_UsersRegDate=RS("UsersRegDate")
YWNT_TMS_UsersTrueName=RS("UsersTrueName")
YWNT_TMS_UsersEmail=RS("UsersEmail")
YWNT_TMS_UsersQQ=RS("UsersQQ")
RS.close
set RS=nothing
Select Case YWNT_TMS_UsersType
Case 0
YWNT_TMS_UsersCoinx=YWNT_TMS_UsersCoin&"影币"
Case 1
YWNT_TMS_UsersCoinx=YWNT_TMS_UsersCoinDate-Now()
YWNT_TMS_UsersCoinx=formatnumber(YWNT_TMS_UsersCoinx,1)&"天"
End Select%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
<tr>
<td><br />
<table width="70%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" height="32">用 户 名：</td>
<td colspan="2"><%=YWNT_TMS_UsersName%></td>
</tr>
<tr>
<td height="32">消费模式：</td>
<td colspan="2"><%=UsersType(YWNT_TMS_UsersType)%></td>
</tr>
<tr>
<td height="32">会员类型：</td>
<td colspan="2"><%=UsersGroup(YWNT_TMS_UsersGroup)%></td>
</tr>
<tr>
<td height="32"><%if YWNT_TMS_UsersType=0 then Response.Write"剩余影币：" else Response.Write"剩余包月："%></td>
<td colspan="2"><%=YWNT_TMS_UsersCoinx%></td>
</tr>
<tr>
<td height="32">用户I P：</td>
<td colspan="2"><%=UsersIP()%></td>
</tr>
<tr>
<td height="32">注册时间：</td>
<td colspan="2"><%=YWNT_TMS_UsersRegDate%></td>
</tr>
<tr>
<td height="32">真实姓名：</td>
<td colspan="2"><%=YWNT_TMS_UsersTrueName%></td>
</tr>
<tr>
<td height="32">电子邮箱：</td>
<td colspan="2"><%=YWNT_TMS_UsersEmail%></td>
</tr>
<tr>
<td height="32">联系Q Q：</td>
<td colspan="2"><%=YWNT_TMS_UsersQQ%></td>
</tr>
</table>
<br /></td>
</tr>
</table></td>
</tr>
</table>
<%End If
End If%>
</td>
</tr>
</table>
<%call connclose()%>
</body>
</html>